home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_bas / vbasm.zip / VBASM.TXT < prev    next >
Text File  |  1994-06-19  |  6KB  |  96 lines
  1. '---------------------------------------------------------------'
  2. ' VB-ASM, Version 1.00                                          '
  3. ' Copyright (c) 1994 SoftCircuits Programming                   '
  4. ' Redistributed by Permission.                                  '
  5. '                                                               '
  6. ' SoftCircuits Programming                                      '
  7. ' P.O. Box 16262                                                '
  8. ' Irvine, CA 92713                                              '
  9. ' CompuServe: 72134,263                                         '
  10. '                                                               '
  11. ' This program may be used and distributed freely on the        '
  12. ' condition that it is distributed in full and unchanged, and   '
  13. ' that no fee is charged for such use and distribution with the '
  14. ' exception or reasonable media and shipping charges.           '
  15. '                                                               '
  16. ' You may also incorporate any or all portions of this program, '
  17. ' and/or include the VB-ASM DLL, as part of your own programs   '
  18. ' and distribute such programs without payment of royalties on  '
  19. ' the condition that such program do not duplicate the overall  '
  20. ' functionality of VB-ASM and/or any of its demo programs, and  '
  21. ' that you agree to the following disclaimer.                   '
  22. '                                                               '
  23. ' WARNING: Accessing the low-level services of Windows, DOS and '
  24. ' the ROM-BIOS using VB-ASM is an extremely powerful technique  '
  25. ' that, if used incorrectly, can cause possible permanent       '
  26. ' damage and/or loss of data. You are responsible for           '
  27. ' determining appropriate use of any and all files included in  '
  28. ' this package. SoftCircuits will not be held liable for any    '
  29. ' damages resulting from the use of these files.                '
  30. '                                                               '
  31. ' SOFTCIRCUITS SPECIFICALLY DISCLAIMS ALL WARRANTIES,           '
  32. ' INCLUDING, WITHOUT LIMITATION, ALL IMPLIED WARRANTIES OF      '
  33. ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND        '
  34. ' NON-INFRINGEMENT OF THIRD PARTY RIGHTS.                       '
  35. '                                                               '
  36. ' UNDER NO CIRCUMSTANCES WILL SOFTCIRCUITS BE LIABLE FOR        '
  37. ' SPECIAL, INCIDENTAL, CONSEQUENTIAL, INDIRECT, OR ANY OTHER    '
  38. ' DAMAGES OR CLAIMS ARISING FROM THE USE OF THIS PRODUCT,       '
  39. ' INCLUDING LOSS OF PROFITS OR ANY OTHER COMMERCIAL DAMAGES,    '
  40. ' EVEN IF WE HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH       '
  41. ' DAMAGES.                                                      '
  42. '                                                               '
  43. ' Please contact SoftCircuits Programming if you have any       '
  44. ' questions concerning these conditions.                        '
  45. '---------------------------------------------------------------'
  46.  
  47. 'VB-ASM DLL declarations
  48. Type REGS
  49.     AX As Integer
  50.     BX As Integer
  51.     CX As Integer
  52.     DX As Integer
  53.     BP As Integer
  54.     SI As Integer
  55.     DI As Integer
  56.     Flags As Integer
  57.     DS As Integer
  58.     ES As Integer
  59. End Type
  60.  
  61. 'REGS Flags bit values
  62. Global Const FLAGS_CARRY = &H1
  63. Global Const FLAGS_PARITY = &H4
  64. Global Const FLAGS_AUX = &H10
  65. Global Const FLAGS_ZERO = &H40
  66. Global Const FLAGS_SIGN = &H80
  67.  
  68. Declare Function vbGetCtrlModel Lib "VBASM.DLL" (ByVal Ctrl As Long) As Long
  69. Declare Sub vbGetData Lib "VBASM.DLL" (ByVal Pointer As Long, Variable As Any, ByVal nCount As Integer)
  70. Declare Function vbGetLongPtr Lib "VBASM.DLL" (nVariable As Any) As Long
  71. Declare Function vbHiByte Lib "VBASM.DLL" (ByVal nValue As Integer) As Integer
  72. Declare Function vbHiWord Lib "VBASM.DLL" (ByVal nValue As Long) As Integer
  73. Declare Function vbInp Lib "VBASM.DLL" (ByVal nPort As Integer) As Integer
  74. Declare Function vbInpw Lib "VBASM.DLL" (ByVal nPort As Integer) As Integer
  75. Declare Sub vbInterrupt Lib "VBASM.DLL" (ByVal IntNum As Integer, InRegs As REGS, OutRegs As REGS)
  76. Declare Sub vbInterruptX Lib "VBASM.DLL" (ByVal IntNum As Integer, InRegs As REGS, OutRegs As REGS)
  77. Declare Function vbLoByte Lib "VBASM.DLL" (ByVal nValue As Integer) As Integer
  78. Declare Function vbLoWord Lib "VBASM.DLL" (ByVal nValue As Long) As Integer
  79. Declare Function vbMakeLong Lib "VBASM.DLL" (ByVal nLoWord As Integer, ByVal nHiWord As Integer) As Long
  80. Declare Function vbMakeWord Lib "VBASM.DLL" (ByVal nLoByte As Integer, ByVal nHiByte As Integer) As Integer
  81. Declare Sub vbOut Lib "VBASM.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
  82. Declare Sub vbOutw Lib "VBASM.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
  83. Declare Function vbPeek Lib "VBASM.DLL" (ByVal nSegment As Integer, ByVal nOffset As Integer) As Integer
  84. Declare Function vbPeekw Lib "VBASM.DLL" (ByVal nSegment As Integer, ByVal nOffset As Integer) As Integer
  85. Declare Sub vbPoke Lib "VBASM.DLL" (ByVal nSegment As Integer, ByVal nOffset As Integer, ByVal nValue As Integer)
  86. Declare Sub vbPokew Lib "VBASM.DLL" (ByVal nSegment As Integer, ByVal nOffset As Integer, ByVal nValue As Integer)
  87. Declare Function vbRealModeIntX Lib "VBASM.DLL" (ByVal IntNum As Integer, InRegs As REGS, OutRegs As REGS) As Integer
  88. Declare Function vbRecreateCtrl Lib "VBASM.DLL" (ByVal Ctrl As Long) As Integer
  89. Declare Function vbSAdd Lib "VBASM.DLL" (Variable As String) As Integer
  90. Declare Sub vbSetData Lib "VBASM.DLL" (ByVal Pointer As Long, Variable As Any, ByVal nCount As Integer)
  91. Declare Function vbShiftLeft Lib "VBASM.DLL" (ByVal nValue As Integer, ByVal nBits As Integer) As Integer
  92. Declare Function vbShiftRight Lib "VBASM.DLL" (ByVal nValue As Integer, ByVal nBits As Integer) As Integer
  93. Declare Function vbSSeg Lib "VBASM.DLL" (Variable As String) As Integer
  94. Declare Function vbVarPtr Lib "VBASM.DLL" (Variable As Any) As Integer
  95. Declare Function vbVarSeg Lib "VBASM.DLL" (Variable As Any) As Integer
  96.